home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / frmtechd.frm (.txt) < prev    next >
Visual Basic Form  |  1999-06-24  |  15KB  |  386 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTechDone 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "TechDone form"
  6.    ClientHeight    =   5025
  7.    ClientLeft      =   615
  8.    ClientTop       =   1305
  9.    ClientWidth     =   8520
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   5025
  16.    ScaleWidth      =   8520
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.PictureBox picTech 
  19.       BackColor       =   &H00000000&
  20.       Height          =   2670
  21.       Left            =   2025
  22.       ScaleHeight     =   174
  23.       ScaleMode       =   3  'Pixel
  24.       ScaleWidth      =   281
  25.       TabIndex        =   3
  26.       Top             =   645
  27.       Width           =   4275
  28.       Begin VB.Image imgTech 
  29.          Height          =   2640
  30.          Left            =   -30
  31.          Stretch         =   -1  'True
  32.          Top             =   -45
  33.          Width           =   4245
  34.       End
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "&OK"
  38.       Default         =   -1  'True
  39.       Height          =   345
  40.       Left            =   3450
  41.       TabIndex        =   0
  42.       Top             =   4410
  43.       Width           =   1455
  44.    End
  45.    Begin VB.Image imgShield 
  46.       Height          =   585
  47.       Left            =   1140
  48.       Picture         =   "FRMTECHD.frx":0000
  49.       Stretch         =   -1  'True
  50.       Top             =   4020
  51.       Visible         =   0   'False
  52.       Width           =   795
  53.    End
  54.    Begin VB.Image imgBioRocket 
  55.       Height          =   525
  56.       Left            =   7635
  57.       Picture         =   "FRMTECHD.frx":CD82
  58.       Stretch         =   -1  'True
  59.       Top             =   2730
  60.       Visible         =   0   'False
  61.       Width           =   810
  62.    End
  63.    Begin VB.Image imgLaser 
  64.       Height          =   495
  65.       Left            =   7635
  66.       Picture         =   "FRMTECHD.frx":2BB90
  67.       Stretch         =   -1  'True
  68.       Top             =   2190
  69.       Visible         =   0   'False
  70.       Width           =   780
  71.    End
  72.    Begin VB.Image imgMissile1 
  73.       Height          =   525
  74.       Left            =   15
  75.       Picture         =   "FRMTECHD.frx":4BD02
  76.       Stretch         =   -1  'True
  77.       Top             =   3930
  78.       Visible         =   0   'False
  79.       Width           =   795
  80.    End
  81.    Begin VB.Image imgWarpScan 
  82.       Height          =   555
  83.       Left            =   30
  84.       Picture         =   "FRMTECHD.frx":59CEC
  85.       Stretch         =   -1  'True
  86.       Top             =   3270
  87.       Visible         =   0   'False
  88.       Width           =   825
  89.    End
  90.    Begin VB.Image imgScience2 
  91.       Height          =   555
  92.       Left            =   60
  93.       Picture         =   "FRMTECHD.frx":681D6
  94.       Stretch         =   -1  'True
  95.       Top             =   2625
  96.       Visible         =   0   'False
  97.       Width           =   750
  98.    End
  99.    Begin VB.Image imgScience1 
  100.       Height          =   585
  101.       Left            =   30
  102.       Picture         =   "FRMTECHD.frx":BC7E4
  103.       Stretch         =   -1  'True
  104.       Top             =   1980
  105.       Visible         =   0   'False
  106.       Width           =   750
  107.    End
  108.    Begin VB.Image imgCloaking 
  109.       Height          =   555
  110.       Left            =   45
  111.       Picture         =   "FRMTECHD.frx":CBCE6
  112.       Stretch         =   -1  'True
  113.       Top             =   1395
  114.       Visible         =   0   'False
  115.       Width           =   765
  116.    End
  117.    Begin VB.Image imgJam 
  118.       Height          =   510
  119.       Left            =   30
  120.       Picture         =   "FRMTECHD.frx":FD238
  121.       Stretch         =   -1  'True
  122.       Top             =   795
  123.       Visible         =   0   'False
  124.       Width           =   765
  125.    End
  126.    Begin VB.Image imgDeepScanner 
  127.       Height          =   555
  128.       Left            =   30
  129.       Picture         =   "FRMTECHD.frx":10523A
  130.       Stretch         =   -1  'True
  131.       Top             =   180
  132.       Visible         =   0   'False
  133.       Width           =   720
  134.    End
  135.    Begin VB.Image imgUltraWarp 
  136.       Height          =   570
  137.       Left            =   7635
  138.       Picture         =   "FRMTECHD.frx":114D5C
  139.       Stretch         =   -1  'True
  140.       Top             =   3480
  141.       Visible         =   0   'False
  142.       Width           =   795
  143.    End
  144.    Begin VB.Image Image4 
  145.       Height          =   180
  146.       Left            =   945
  147.       Picture         =   "FRMTECHD.frx":1263EE
  148.       Stretch         =   -1  'True
  149.       Top             =   0
  150.       Width           =   6465
  151.    End
  152.    Begin VB.Image Image3 
  153.       Height          =   180
  154.       Left            =   945
  155.       Picture         =   "FRMTECHD.frx":12A6C0
  156.       Stretch         =   -1  'True
  157.       Top             =   4860
  158.       Width           =   6495
  159.    End
  160.    Begin VB.Image Image2 
  161.       Height          =   4995
  162.       Left            =   7380
  163.       Picture         =   "FRMTECHD.frx":12E992
  164.       Stretch         =   -1  'True
  165.       Top             =   15
  166.       Width           =   225
  167.    End
  168.    Begin VB.Image Image1 
  169.       Height          =   5025
  170.       Left            =   720
  171.       Picture         =   "FRMTECHD.frx":1322B4
  172.       Stretch         =   -1  'True
  173.       Top             =   0
  174.       Width           =   225
  175.    End
  176.    Begin VB.Image imgResource 
  177.       Height          =   555
  178.       Left            =   7620
  179.       Picture         =   "FRMTECHD.frx":135BD6
  180.       Stretch         =   -1  'True
  181.       Top             =   1575
  182.       Visible         =   0   'False
  183.       Width           =   810
  184.    End
  185.    Begin VB.Image imgPlanetShield 
  186.       Height          =   495
  187.       Left            =   7665
  188.       Picture         =   "FRMTECHD.frx":148C18
  189.       Stretch         =   -1  'True
  190.       Top             =   1005
  191.       Visible         =   0   'False
  192.       Width           =   810
  193.    End
  194.    Begin VB.Image imgMech 
  195.       Height          =   525
  196.       Left            =   7605
  197.       Picture         =   "FRMTECHD.frx":159FEA
  198.       Stretch         =   -1  'True
  199.       Top             =   420
  200.       Visible         =   0   'False
  201.       Width           =   855
  202.    End
  203.    Begin VB.Label lblTitle 
  204.       BackColor       =   &H00000000&
  205.       BeginProperty Font 
  206.          Name            =   "MS Sans Serif"
  207.          Size            =   9.75
  208.          Charset         =   0
  209.          Weight          =   700
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       ForeColor       =   &H0000FF00&
  215.       Height          =   285
  216.       Left            =   2040
  217.       TabIndex        =   2
  218.       Top             =   330
  219.       Width           =   4665
  220.    End
  221.    Begin VB.Label lblDescription 
  222.       BackColor       =   &H00000000&
  223.       ForeColor       =   &H0000FF00&
  224.       Height          =   960
  225.       Left            =   2055
  226.       TabIndex        =   1
  227.       Top             =   3330
  228.       Width           =   4290
  229.       WordWrap        =   -1  'True
  230.    End
  231. Attribute VB_Name = "frmTechDone"
  232. Attribute VB_GlobalNameSpace = False
  233. Attribute VB_Creatable = False
  234. Attribute VB_PredeclaredId = True
  235. Attribute VB_Exposed = False
  236. Option Explicit
  237. Private Sub cmdOK_Click()
  238. 'continue with game
  239. Unload Me
  240. End Sub
  241. Private Sub Form_Activate()
  242. 'draw lots of stars on the screen
  243. Randomize
  244. Dim a, X, Y, X2, Y2 As Integer
  245. 'draw white stars
  246. For a = 1 To 40
  247.    X = Int(Rnd * 900)
  248.    Y = Int(Rnd * Me.ScaleHeight)
  249.    X2 = Int(Rnd * 1000) + 7585
  250.    Y2 = Int(Rnd * Me.ScaleHeight)
  251.    Me.PSet (X, Y), vbWhite
  252.    Me.PSet (X2, Y2), vbWhite
  253. Next a
  254. 'draw dark grey stars
  255. Dim grey
  256. grey = &H808080
  257. For a = 1 To 50
  258.    X = Int(Rnd * 800)
  259.    Y = Int(Rnd * Me.ScaleHeight)
  260.    X2 = Int(Rnd * 1000) + 7585
  261.    Y2 = Int(Rnd * Me.ScaleHeight)
  262.    Me.PSet (X, Y), grey
  263.    Me.PSet (X2, Y2), grey
  264. Next a
  265. 'draw some blue stars
  266. Dim blue
  267. blue = &H800000
  268. For a = 1 To 25
  269.    X = Int(Rnd * 800)
  270.    Y = Int(Rnd * Me.ScaleHeight)
  271.    X2 = Int(Rnd * 1000) + 7585
  272.    Y2 = Int(Rnd * Me.ScaleHeight)
  273.    Me.PSet (X, Y), blue
  274.    Me.PSet (X2, Y2), blue
  275. Next a
  276. PlaySoundEffect "Research"
  277. End Sub
  278. Private Sub Form_Load()
  279. 'set pictures and text based on what tech has been re